home *** CD-ROM | disk | FTP | other *** search
/ Webster's Millennium Amer…Sign Language Dictionary / ASL.ISO / mac / SKILLS.dir / 00023_Script_sk dk arrow r script < prev    next >
Text File  |  2001-09-05  |  691b  |  15 lines
  1. on mouseUp
  2.   global TEMPLATE1, KNOB1, minPos1, maxPos1,gNumQs
  3.   global maxscroll,minScroll,gCat,ScrollList
  4.   if minScroll > 1 then set minScroll = 1
  5.   put maxscroll*1.0-minScroll*1.0 into scrollRange
  6.   put scrollRange/(maxPos1-minPos1) into scrollRatio
  7.   put max(integer((maxPos1-minPos1)/scrollRange),1) into sliderRatio
  8.   --  repeat while the mouseDown
  9.   set the locH of sprite KNOB1 = max( minPos1, min( (the locH of sprite KNOB1 + sliderRatio) , maxPos1 ) )
  10.   set refVal = getQVal(the locH of sprite KNOB1,scrollRange,scrollRatio,minPos1)
  11.   set the text of cast "whichq" = string(integer(refVal))&&"of"&&gNumQs
  12.   updateStage
  13.   --  end repeat
  14.   aQuestion integer(refVal)
  15. end